﻿Public Class ucConsultas

    Private Sub llSolicitanteExternos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llSolicitanteExternos.Click
        frmConsultaSolicitante.ShowDialog()
    End Sub

    Private Sub llProfessores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llProfessores.Click
        frmConsultaProfessores.ShowDialog()
    End Sub

    Private Sub llFuncionarios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llFuncionarios.Click
        frmConsultaFuncionario.ShowDialog()
    End Sub

    Private Sub llAluno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llAluno.Click
        frmConsultaAluno.ShowDialog()
    End Sub

    Private Sub llSala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llSala.Click
        frmConsultaSala.ret = "N"
        frmConsultaSala.ShowDialog()
    End Sub

    Private Sub llRecurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles llRecurso.Click
        frmConsultaRecurso.ShowDialog()
    End Sub


    Private Sub llParticularidade_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llParticularidade.LinkClicked
        frmConsultaParticularidade.ShowDialog()
    End Sub
End Class
